home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
TBUTIL2.LZH
/
VAR.INC
< prev
next >
Wrap
Text File
|
1986-02-23
|
1KB
|
25 lines
Const MaxScreens = 8; { Number of Windows Allowed, do not Change }
Screen_seg = $B800; { Change to #B000 for MonoChrome, Change
then # sign to a Dollar sign Though. }
Data_Addr = $0000;
Fc : Array[1..4, 1..7] of Integer
= ((218, 196, 191, 179, 192, 196, 217),
(201, 205, 187, 186, 200, 205, 188),
(213, 205, 184, 179, 212, 205, 190),
(219, 219, 219, 219, 219, 219, 219));
type maxstr = string[80];
window_rec = record
x1,x2,y1,y2,c1,b1,w1,w2: Integer;
Screen: Array[1..4000] of byte;
end;
var Stack_Top,Last_Window_Num,
line_pos,F1 : Integer;
screen : Array[1..4000] of byte;
real_screen : Array[1..4000] of byte absolute Screen_Seg:Data_Addr;
Page_1 : Array[1..4000] of byte absolute Screen_Seg:$1000;
Imig : Array [1..MaxScreens] of Window_rec;
Original : Array[1..4000] of byte;
Coords : Array[1..8,1..MaxScreens] of Integer;